COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN
C00003 ENDMK
C⊗;
BEGIN
	SIMPLE PROCEDURE SHIT (STRING S);
		OUTSTR(S);
	SHIT("HI THERE SHIT HEAD !!");
END;